home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 027a / cbutton.zip / TEST.PRG < prev    next >
Text File  |  1991-10-24  |  534b  |  36 lines
  1. #include "pe.ch"
  2.  
  3.  
  4. function main()
  5.  
  6. local l1    := .f.
  7. local l2    := .t.
  8. local l3    := .t.
  9. local cName := "Name    "
  10.  
  11. local GetList := {}
  12.  
  13.  
  14. @ 0,0 Clear
  15.  
  16. @ 0, 0 Say "Flag 1 [ ]"
  17. @ 1, 0 Say "Flag 2 [ ]"
  18. @ 2, 0 Say "Name:"
  19. @ 3, 0 Say "Flag 3 [ ]"
  20.  
  21. @ 0, 8 PE BUTTON l1 ON 'X' OFF 'x'
  22. @ 1, 8 PE BUTTON l2 ON '█' OFF '■' COLOR "BG/W"
  23. @ 2, 6 PE GET cName Picture "@!" WHEN ( l2 )
  24. @ 3, 8 PE BUTTON l3 ON '√' OFF ' '
  25.  
  26. read
  27.  
  28. @ 5, 0 say l1
  29. @ 6, 0 say l2
  30. @ 7, 0 say l3
  31. @ 8, 0 say cName
  32.  
  33. @ 9, 0
  34.  
  35. return (NIL)
  36.